home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / mathx30.exe / MATHXDEM.APL < prev    next >
Text File  |  1991-08-07  |  12KB  |  315 lines
  1. z''=info:z'''=int((z''-int(z''/10000)*10000)/1000):if z'''<>1}1
  2. | MATHXDEM.APL FILE
  3.   Copyright 1991 By David W. Denker
  4.   Box 115, Isanti, Mn. 55040
  5.   For MATHX V3.00 |
  6. dsp n" Sorry, the MATHXDEM.APL file will not work with MATHXR! "
  7. wait10:quit
  8. #1
  9. Z'''=INT(Z''*.0001):IF Z'''=>300}2
  10. DSP nn; Sorry, this file must be used with MATHX V3.00 or greater!;n
  11. wait20:quit
  12. #2
  13. z'''=int(z''*.1)-int(z''*.01)*10
  14. digl6:digr6:boff:bc7:cls:xon
  15. title= MATH EXTRA DEMO 
  16. i=sloc:if i=82}700
  17. HEAD B0F13"  Select by the FIRST LETTER or use MOUSE or  CURSOR keys."
  18. wlcc b1f15l2
  19. menuu bb4bf15b2f14I"
  20.  "!G"o to main program 
  21.  "!R"un MATHX Demo"xr7
  22. x=mlvl:if x=1}q
  23. #700
  24. if z'''<3}800
  25. graf,GOS710,IF Y'<>1}720,Y'=30
  26. fc4,dsp r1c32;WELCOME  TO;
  27. fc2,line x50y(30+Y')ex50ey(90+Y')w4,line ex70ey(70+Y'),line x90ex70
  28. line ex90ey(90+Y')
  29. FC3,line x120ex100,line ex140,line x106ex134y(70+Y')ey(70+Y')
  30. FC4,line x150ex190y(30+Y')ey(30+Y'),line x168ex168ey(90+Y')
  31. FC5,line x200ex200,line x240ex240,line x200ex240y(57+Y')ey(57+Y')
  32. FC6,line x300ex300y(30+Y')ey(90+Y'),line ex340ey(30+Y')
  33. line ex330y(57+Y')ey(57+Y'),line ex340y(87+Y')ey(87+Y')
  34. FC9,line x350ex390y(30+Y')ey(90+Y'),line x390ex350
  35. FC10,line x400ex440y(30+Y')ey(30+Y'),line x418ex418ey(90+Y')
  36. FC11,line x450ex450,line ex475ey(30+Y'),line y(58+Y')ey(58+Y')
  37. line x470ex490ey(90+Y')
  38. arc x475y(44+Y')r14w4vs0e90f100,ARC H,arc s270e360,ARC V
  39. FC12,line x520ex500y(30+Y')ey(90+Y')
  40. line ex540,line x506ex534y(70+Y')ey(70+Y')
  41. fc13,line x40ex550y(100+Y')ey(100+Y')w2
  42. FC14,row21,col5,dsp ;By ;f12;DENKER SOFTWARE;
  43. FC14,row22,col5,dsp ;Copyright 1991, David Denker;
  44. wait4,go720
  45. #710
  46. Y''=VIDM:Y'=0:IF Y''>19}R
  47. Y'=data Y''{0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,1,0}:RET
  48. #720
  49. GOFF
  50. #800:CLS:hoff
  51. CC0:BC7:dsp f0"  COPYRIGHT 1991, by David Denker, Box 115, Isanti, Mn. 55040
  52.  
  53.  
  54.  
  55.   WELCOME TO THE "F4"MATH EXTRA"f0" DEMO PROGRAM.
  56.  
  57.  
  58.        The MATH EXTRA programs are general purpose scientific math software
  59.  
  60.   programs  for the IBM PC/XT/AT and 100% compatible computers.   There are
  61.  
  62.   two  different  programs available depending on your requirements.   Both
  63.  
  64.   are programmable  using a simple easy to learn language and both are very
  65.  
  66.   powerful math programs.   This demo file is a file written on an ordinary
  67.  
  68.   word processor for use by this math program as an instruction tool.  More
  69.  
  70.   on that later.  Lets look at what this program can do.
  71.  
  72.   "f1"Hit any key when ready."f0
  73. call810:cls
  74. dsp d27d24"─────────────────────────────────78 columns────────────────────"
  75. dsp"────────────"d26" │"n" │"n" │"n"7 rows"n" │"ns1d25
  76. windd r9c4bb1bf15b14f0wr9wc68;
  77.  Instructions, commands or problems are given to the math program
  78.  using the instruction line.   The  instruction  line  has 7 rows 
  79.  of 78 columns  that  form  a  546  character  instruction  area.
  80.  (The  MATH EXTRA RESIDENT  version  has  4  rows of 78 columns.)
  81.  This is where a math problem is entered  or  commands are given.
  82.  
  83. ;f4; Hit any key to continue.
  84. ;f0:call810:cls
  85. dsp "100+200
  86.          300"
  87. windd r9wr9wc66;
  88.  To get the answer to a math problem,  simply enter the problem
  89.  using  normal  computer  math  symbals and numbers and hit the
  90.  ENTER  key for the answer.   It is as simple as that!    No on
  91.  screen  "calculator"  to figure out, just direct problem input
  92.  and a fast answer back.
  93.  
  94. ;f4; Hit any key to continue.
  95. ;f0
  96. call810:cls
  97. head "  Hit the ESC key if you want to quit."
  98. dsp "12*144+10"n"       1,738"n
  99. dsp "156 * SIN 30"n"          78"n
  100. dsp"√(14.4*10)"n"          12"n
  101. dsp "25-32*3"n"         -71"n
  102. dsp "pi*6.1234"n"          19.2372285"n
  103. dsp "45 - 144 / 6 + 15.25"n"          36.25"
  104. windd f0wr7wc58r2c18;
  105.      Here are some examples  of  problems  entered  and
  106.  the answers returned.  The instruction line moves down
  107.  the screen as each problem is done.
  108.  
  109. ;f4; Hit any key to continue.
  110. ;f0
  111. call810
  112. windd wc40c35f0wr16"
  113.  Notice on the last example displayed
  114.  that  the answer does not agree with
  115.  your  calculator if you enter it the
  116.  way it is written.   The  MATH EXTRA
  117.  programs use a  priority system that
  118.  is common for  math computers.   The
  119.  math  operations  multiplication and
  120.  division have priority over addition
  121.  and  subtraction  so  they  are done
  122.  first.   See  the  help  information
  123.  window or the manual for more on the
  124.  priority of calculations.
  125.  
  126. "f4" Hit any key to continue"
  127. call810:woff
  128. dsp n"45 - 144 / 6 + 15.25"
  129. windd wc40f0wr8c30"
  130.  If you make a mistake on the problem
  131.  you last entered,  just hit the  F10
  132.  key  and  the previous entry will be
  133.  brought back for your editing.  When
  134.  done editing hit  ENTER  for the new
  135.  answer.
  136.  
  137. "f4" Hit any key to continue"
  138. wait10:dsp" * 2"n:wait3:woff
  139. dsp"          51.5":windd wr10:call810
  140. cls
  141. dsp r0c0"DIGR 2:X=10:I=.10:S=10000:#1:S=S+S*I:X=X-1:IF X<>0}1:DSP(S)"
  142. windd f0"
  143.     As you have just seen,  the  MATH EXTRA  programs are easy to use.
  144.  The  examples given were simple math problems,  but  the  MATH EXTRA
  145.  programs can do some harder problems too.   Take a look at the above
  146.  problem for instance.  This problem will show you how much money you
  147.  will have after  X  years starting with  S amount at I interest rate.
  148.  
  149.  "f4" Hit any key to continue
  150. "wr9wc73r10c1
  151. call 810
  152. dsp n"        25,937.42"
  153. WINDD f0wc76;
  154.     The first statement on the line  is  DIGR 2.   This sets up a display
  155.  parameter so only  2 digits right of the decimal point will be displayed.
  156.  The next 3 instructions give values to variables X, I and S.  "X" is the
  157.  number of years,  "I" is the interest rate (10%) and "S" is the starting
  158.  amount of dollars.   The #1 is a jump location.   This is where the loop
  159.  starts for the 10 year cycle.   The  :  characters  in  the  problem are
  160.  statement  and  math  expression  separators  so the program knows where
  161.  each  statement  and  math  expression starts and ends.   Then comes the
  162.  math  statements  required  to  do  the  problem.   After  that  is a IF
  163.  statement to check if  X  does not equal 0  (if it doesn't it jumps back
  164.  to location #1).   Then at the end is the display of the final result.
  165.  
  166. ;f4" Hit any key to continue
  167. "wr15r5c1:call 810
  168. windd f0c2;
  169.     Very complex problems can be solved by the  MATHX EXTRA programs
  170.  using this easy and logical method that is very similar to  "BASIC"
  171.  except its in a math environment.  
  172.     The  above  problem  could  have been set up to include a yearly,
  173.  monthly, or  weekly contribution and display the results each month.
  174.  MATH EXTRA  comes with an  application  program  that does this kind
  175.  of problem much better then this.  All you have to do is answer some
  176.  questions and it gives you the answers!
  177.  
  178. ;f4" Hit any key to continue
  179. "wr12r7wc72:call 810:cls
  180. x=11:y=0
  181. head B(x)F(y)"  "!C"OMMANDS  "!P"ARAMETERS  "!I"NFORMATION 
  182.  "!L"OAD∙APL  "!U"TILITIES "
  183. DSP r10;
  184.        Now lets look at the environment header line and the pop-down menus
  185.   available to the MATH EXTRA user.  Any of the  pop-down  menus listed on
  186.   the  header  line  will  be displayed by placing the mouse cursor on the
  187.   word  of  the desired menu and clicking the left mouse button.   Another
  188.   way is to hold down the  ALT key and hit the pick letter of the pop-down
  189.   menu you want.
  190.   
  191.  ;f4" Hit any key to continue
  192. ":call 810:cls
  193. x=11:y=0
  194. head B(x)F(y)" "B2F15" COMMANDS "B(x)F(y)" PARAMETERS  INFORMATION 
  195.  LOAD∙APL  UTILITIES "
  196. DSP r11;
  197.       After  selecting  one  of  the  menus,  in  this case I will use the
  198.   "COMMANDS" menu,  the pop-down menu will be displayed.   Now you can use
  199.   the  mouse  to select any line of the menu.   The  cursor  up/down  keys
  200.   can  also  be used to select a menu item  (hit Enter when you are on the
  201.   line you want) or for some of the menus,  a  pick letter is available on
  202.   each line.  If a pick letter is present, just hit the letter of the line
  203.   you want.  (The ALT key is not used here)
  204.  
  205. ;f4"  Hit any key to continue."
  206. windd wr11wc20r1c1BB2BF15B2F0"┘      └
  207.  "!C"lear the Screen
  208.  C"!l"ear Inst. Line
  209.  "!R"un Application
  210.  Go To "!D"OS Shell
  211.  "!S"ave Inst. Line
  212.  "!G"et saved Line
  213.  "!E"dit Application
  214. ──────────────────
  215.  "!Q"UIT MATHX . . .
  216. "
  217. call810:cls
  218. HEAD B(x)F(y)"  COMMANDS "B2F15" PARAMETERS "B(x)F(y)" INFORMATION 
  219.  LOAD∙APL  UTILITIES "
  220. DSP R15;
  221.       The next menu is the "PARAMETERS" menu. The parameters menu displays
  222.   the current parameter settings and can be used to change the parameters.
  223.   (If you have a  color  monitor, two more items will be available on this
  224.   menu.)  The  meaning  of  most of these are obvious.  When you have the
  225.   settings you want, select the DONE line to save them to the disk file.
  226. ;f4"  Hit any key to continue."
  227. windd wr15wc31r1c11f0;┘        └
  228.  ;!P;rinter Disabled
  229.  DEGREE Angular ;!M;ode
  230.  Display Negative ;!H;EX
  231.  ;!A;nswer using COMMAs
  232.  ROUND ;!O;FF Answer
  233.  Scientific ;!N;otation uses E
  234.  ;!S;CIENTIFIC NOTATION Enabled 
  235.  DIGITS ;!L;EFT  of "." =    9
  236.  DIGITS ;!R;IGHT of "." =    6
  237.  ;!E;REQ statement      =    7
  238.  ;!Q;uiet Mode Disabled
  239.  INSERT L;!i;ne Edit Mode
  240.  ;!D;ONE  (save?);
  241. call810:cls
  242. HEAD B(x)F(y)"  COMMANDS  PARAMETERS "B2F15" INFORMATION "B(x)F(y)"
  243.  LOAD∙APL  UTILITIES "
  244. dsp r9;
  245.      The next menu is the "INFORMATION" menu.  You can get help information,
  246.   get  the  function  key  definitions,  or  list  the  string  memories  or
  247.   variables.  You  should  look  at the  HELP  information from this menu to
  248.   get a better understanding of this math program and what it can do for you.
  249.  
  250. ;f4"  Hit any key to continue."
  251. WINDD WR7WC22R1C23f0"┘         └
  252.  "!H"ELP . . .
  253.  List "!F"UNCTION Keys
  254.  List "!M"EMORIES
  255.  List "!V"ARIABLES
  256.  "!A"bout Math Extra"
  257. call810:cls
  258. HEAD B(x)F(y)"  COMMANDS  PARAMETERS  INFORMATION "B2F15" 
  259. LOAD∙APL "B(x)F(y)" UTILITIES "
  260. DSP R8;
  261.      The LOAD∙APL menu lists all the application files available.
  262.   Selecting a file from this menu will load that file into MATHX
  263.   and it can be run at any time by  using  the  RUN  APPLICATION
  264.   selection  in  the  COMMANDS  pop-down  menu.  The name of the
  265.   file  loaded  will  be  displayed at the right side of the top
  266.   information bar.
  267.  
  268. ;f4"  Hit any key to continue."
  269. WINDD WR5WC16R1C36f0"┘      └
  270.  FINANCE.APL
  271.  MATHXDEM.APL
  272.  ONEARM.APL "
  273. call810:cls
  274. dsp r8;
  275.       The utilities menu lists the utility files available.   MATH EXTRA
  276.   comes with a conversion utility that has over  500  metric and english
  277.   weights,  volume,  area  and measurement conversions.    Any number of
  278.   utilities can be added to the program.    You  can  program  your  own 
  279.   utilities using a simple word file editor. Unlike the application menu,
  280.   the utility is run immediately after it is selected from this menu.
  281.  
  282. ;f4"  Hit any key to continue."
  283. windd wr5wc16R1C46"┘       └
  284.  CONVERT.UTL  
  285.  GRAPH.UTL
  286.  TRIANGLE.UTL "
  287. HEAD B(x)F(y)"  COMMANDS  PARAMETERS  INFORMATION  LOAD∙APL 
  288. "B2F15" UTILITIES "B(x)F(y)""
  289. call810:cls
  290. HEAD B(x)F(y)"  COMMANDS  PARAMETERS  INFORMATION  LOAD∙APL 
  291.  UTILITIES           "B2F15" MENU∙APL "B(x)f(y)" "
  292. dsp r10;
  293.        MATH EXTRA comes with a savings and  finance application file that
  294.   loads an application menu into the environment.   This menu can be used
  295.   to pick a specific function of the application file.  This file too can
  296.   be changed by the user using a simple word file editor. Any application
  297.   can have a menu available in the environment.   Whenever an application
  298.   is loaded,  MATH  EXTRA  looks  for  a  file  of the same name with the
  299.   extension .ENV.   If one is found it is loaded onto the environment and
  300.   the pop-down MENU∙APL is available to the user.  Now a specific routine
  301.   of the application can be run just by selecting it from this menu.
  302. ;f1;  This concludes the MATH EXTRA PROGRAM DEMO.
  303. ;f14"  Hit any key for the main program.  "f4"Thank-you. "
  304. WINDD BB2BF15B2F0;───────────────┘      └
  305.  ;!A;mortization table
  306.  ;!B;alance of loan payoff 
  307.  ;!C;ompound interest
  308.  ;!E;arnings rate
  309.  ;!I;nformation . . .
  310.  ;!L;oan interest rate
  311.  ;!P;ayments for loan
  312.  ;!S;avings table;xc53r1
  313. call810:quit
  314. #810:i=kyin:if i=27}q:ret
  315.